ggthemes - examination
function (base_size = 10, base_family = "sans", horizontal = TRUE,
dkpanel = FALSE)
{
bgcolors <- deframe(ggthemes::ggthemes_data[["economist"]][["bg"]])
ret <- theme_foundation(base_size = base_size, base_family = base_family) +
theme(line = element_line(colour = "black"), rect = element_rect(fill = bgcolors["ebg"],
colour = NA, linetype = 1), text = element_text(colour = "black"),
axis.line = element_line(linewidth = rel(0.8)), axis.line.y = element_blank(),
axis.text = element_text(size = rel(1)), axis.text.x = element_text(vjust = 0,
margin = margin(t = base_size, unit = "pt")),
axis.text.x.top = element_text(vjust = 0, margin = margin(b = base_size,
unit = "pt")), axis.text.y = element_text(hjust = 0,
margin = margin(r = base_size, unit = "pt")),
axis.ticks = element_line(), axis.ticks.y = element_blank(),
axis.title = element_text(size = rel(1)), axis.title.x = element_text(),
axis.title.y = element_text(angle = 90), axis.ticks.length = unit(-base_size *
0.5, "points"), legend.background = element_rect(linetype = 0),
legend.spacing = unit(base_size * 1.5, "points"),
legend.key = element_rect(linetype = 0), legend.key.size = unit(1.2,
"lines"), legend.key.height = NULL, legend.key.width = NULL,
legend.text = element_text(size = rel(1.25)), legend.title = element_text(size = rel(1),
hjust = 0), legend.position = "top", legend.direction = NULL,
legend.justification = "center", panel.background = element_rect(linetype = 0),
panel.border = element_blank(), panel.grid.major = element_line(colour = "white",
linewidth = rel(1.75)), panel.grid.minor = element_blank(),
panel.spacing = unit(0.25, "lines"), strip.background = element_rect(fill = bgcolors["ebg"],
colour = NA, linetype = 0), strip.text = element_text(size = rel(1.25)),
strip.text.x = element_text(), strip.text.y = element_text(angle = -90),
plot.background = element_rect(fill = bgcolors["blue-gray"],
colour = NA), plot.title = element_text(size = rel(1.5),
hjust = 0, face = "bold"), plot.margin = unit(c(6,
5, 6, 5) * 2, "points"), complete = TRUE)
if (horizontal) {
ret <- ret + theme(panel.grid.major.x = element_blank())
}
else {
ret <- ret + theme(panel.grid.major.y = element_blank())
}
if (dkpanel == TRUE) {
ret <- ret + theme(panel.background = element_rect(fill = unname(bgcolors["dark blue-gray"])),
strip.background = element_rect(fill = unname(bgcolors["dark blue-gray"])))
}
ret
}
<bytecode: 0x144448270>
<environment: namespace:ggthemes>